Barcodes
Create 1D and 2D barcodes with R
qrcode
install.packages("qrcode")library(qrcode)dblogr
mp <- qr_code("derekmichaelwright.github.io/dblogr", ecl = "M")
mp <- add_logo(mp, "logo_dblogr.png", ecl = "L", hjust = "r", vjust = "b")
generate_svg(mp, "QR_dblogr.svg")
# Convert to png
rsvg::rsvg_png("QR_dblogr.svg", "QR_dblogr.png", width = 512, height = 512)
Knowpulse
mp <- qr_code("knowpulse.usask.ca", ecl = "M")
mp <- add_logo(mp, "logo_knowpulse.png", ecl = "L", hjust = "r", vjust = "b")
generate_svg(mp, "QR_knowpulse.svg")
# Convert to png
rsvg::rsvg_png("QR_knowpulse.svg", "QR_knowpulse.png", width = 512, height = 512)
baRcodeR
install.packages("baRcodeR")library(baRcodeR)
#
myLabels <- data.frame(
Expt = "Sutherland 2024",
Entry = paste("Entry", stringr::str_pad(1:60, width = 3, pad = "0")),
Plot = 1001:1060)2D - QR Codes
custom_create_PDF(name = "myLabes_QRCodes",
Labels = myLabels$Plot,
alt_text = paste0("Plot:", myLabels$Plot,
"\n", myLabels$Expt,
"\n", myLabels$Entry),
denote = c("",""), replace_label = T,
type = "matrix", numrow = 10, numcol = 3)
1D - Barcodes
custom_create_PDF(name = "myLabels_BarCodes",
Labels = myLabels$Plot,
alt_text = paste("Plot:", myLabels$Plot),
denote = c("",""), replace_label = T,
type = "linear", numrow = 10, numcol = 3)Bonus - dblogr Stickers
custom_create_PDF(name = "myLabes_dblogr",
Labels = rep("derekmichaelwright.github.io/dblogr", 30),
alt_text = rep("www.dblogr.com/", 30),
denote = c("",""), replace_label = T,
type = "matrix", numrow = 10, numcol = 3)